COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00007 ENDMK
C⊗;

BEGIN  "DPYMUS"
	REQUIRE "PIXHDR.SAI[VIS,HPM]" SOURCE_FILE;
	INTEGER FOO,EOF,N,I,J;
BEGIN
	INTEGER ARRAY PIC[0:PIXDIM(481,512,3)],B[0:128];

	MAKPIX (481,512,3,PIC[0]);

	OPEN (1,"DSK",'17,19,0,FOO,FOO,EOF);
	LOOKUP (1,"PLT.BIT",FOO);
	ARRYIN (1,B[0],128);
	N ← (-B[0]) LSH -18;
	BEGIN
		INTEGER XL,YL;
		INTEGER ARRAY XG [0:N+127];

		FOR I ← 0 STEP 1 UNTIL 127 DO XG[I] ← B[I+1];
		FOR I ← 0 STEP 1 UNTIL 35 DO B[35-I] ← (1 LSH I);

		ARRYIN (1,XG[128],N);
		RELEASE(1);
		YL←2*481-1; XL←3*512-1;
                YL←YL MIN (N+127-48)%49;

		FOR I←0 STEP 1 UNTIL YL DO
			FOR J←0 STEP 1 UNTIL XL DO
                        IF ( XG[I*49+((1600-J)%36)+1] LAND B[(1600-J) MOD 36] )≠0
                        THEN ADDEL (PIC[0],481-I%2,J%3,1);
		PUTPFL (PIC[0],"MUSPIC");
	END;
END;

END;